5 SYS65517:IFPEEK(781)=40THENPRINT"":GOTO10
6 PRINT"[144]"
10 PRINTCHR$(14):DIMA%(100),W$(100),D$(100),WR$(100):D=0
30 PRINT"[147][197]NTER YOUR NAME[146]":INPUTNM$:IFLEN(NM$)=0THEN30
35 IFLEN(NM$)>13THENNM$=LEFT$(NM$,13)
50 PRINT"[147]"TAB(INT((22-LEN(NM$))/2)-1)NM$;"'S[146]":PRINTTAB(3)"[214]OCABULARY [212]EST[146]"
55 N$="":A$="":B$="":DA$="":X%=0:I=0:J=0:FORQ=1TO100:A%(Q)=0:W$(Q)="":D$(Q)=""
60 WR$(Q)="":NEXT:PRINTSPC(9);"[205]ENU":PRINTSPC(2);"1) [197]NTER [206]EW [215]ORDS"
80 PRINTSPC(2);"2) [211]TUDY [217]OUR [215]ORDS":PRINTSPC(2);"3) [212]AKE [193] [212]EST"
100 PRINTSPC(2);"4) [197]ND":PRINT" PRESS 1-4 TO CONTINUE[146]"
120 GETZ$:C$=Z$:V=VAL(Z$):IFZ$=""OR(V<1ORV>4)THEN120
130 IFV=4THEN190
140 INPUT"[196][146]ISK OR [212][146]APE";Z$:IFZ$<>"T"ANDZ$<>"D"THENPRINT"[145][145][145][145]":GOTO130
150 A$="[157]                      ":IFZ$="D"THEND=1
160 ONVGOTO230,810,810
190 END
230 PRINT"[147][197]NTER # OF NEW [215]ORDS "
235 INPUTX%:IFX%>100ORX%<1THEN230
250 FORI=1TOX%
260 PRINT"[147][197]NTER [215]ORD"I:INPUTW$(I)
265 IFLEN(W$(I))=0THENPRINT"[145][145][145][145][145][145]":GOTO260
270 PRINT"[197]NTER [196]EFINITION":INPUTD$(I)
275 IFLEN(D$(I))=0THENPRINT"[145][145][145]":GOTO270
280 NEXT
300 PRINT"[147]":FORI=1TOX%
310 PRINT" [215]ORD"I"[157]:";W$(I)
320 PRINT" [196]EFINITION:"D$(I):PRINT""
330 IF(I/3)=INT(I/3)ANDX%=3THEN360
332 IF(I/3)=INT(I/3)ANDX%<>ITHENGOSUB2000
340 NEXT
360 PRINT"[193]NY [195]ORRECTIONS(Y/N)? [146]"
380 GETZ$:IFZ$=""OR(Z$<>"Y"ANDZ$<>"N")THEN380
390 IFZ$="Y"THEN420
400 IFZ$="N"THEN520
420 I=0:INPUT"[147][215]HICH ENTRY";I
435 IFI=0ORI>X%THENPRINT"[145][145][145][145]":GOTO420
440 PRINT"[215]ORD"I"[157]:";W$(I)
450 PRINT"[196]EFINITION:";D$(I)
470 PRINT"[197]NTER [215]ORD"I:INPUTW$
480 W$(I)=W$
490 PRINT"[197]NTER [196]EFINITION":INPUTD$
500 D$(I)=D$
510 GOTO300
520 INPUT"[212]ODAY'S [196]ATE: ";DA$
540 PRINT"[147]     [208]LEASE [215]AIT"
550 PRINT"[201]'M [211]AVING [217]OUR [215]ORDS [146]"
560 N$="TEST "+DA$
565 IFD=1THENN$="TEST "+DA$+",S,W"
570 OPEN15,8,15:OPEN1+D,1+7*D,1+D,N$:INPUT#15,A$,B$
572 IFA$="63"THENCLOSE(1+D):CLOSE15:GOTO520
575 IFA$<>"00"THENPRINTB$:FORI=1TO3000:NEXT:CLOSE(1+D):CLOSE15:GOTO50
580 PRINT#(1+D),X%:FORI=1TOX%
590 PRINT#(1+D),W$(I):PRINT#(1+D),D$(I)
600 NEXTI:CLOSE(1+D):CLOSE15:GOTO50
810 PRINT"[147] [193] [212]EST [205]ADE [202]UST [198]OR[146]":PRINTTAB(INT((22-LEN(NM$))/2)-1)""NM$"[146]"
820 PRINT"[197]NTER THE [212]EST [196]ATE ":INPUTDA$
870 PRINT"[147]     [208]LEASE [215]AIT"
880 PRINT"  [204]OADING THE [215]ORDS[146]"
890 N$="TEST "+DA$
895 IFD=1THENN$="TEST "+DA$+",S,R"
900 OPEN15,8,15:OPEN1+D,1+7*D,2*D,N$:INPUT#15,A$,B$
902 IFA$="62"THENCLOSE1+D:CLOSE15:GOTO810
905 IFA$<>"00"THENPRINTB$:FORI=1TO3000:NEXT:CLOSE(1+D):CLOSE15:GOTO50
910 INPUT#(1+D),X%:FORI=1TOX%
920 INPUT#(1+D),W$(I)
930 IFW$(I)=""THENGOTO950
940 GOTO960
950 I=X%:GOTO970
960 INPUT#(1+D),D$(I)
970 NEXTI
980 CLOSE(1+D):CLOSE15
1030 FORI=1TOX%
1040 A%=X%*RND(1)+1:IFI=1THENA%(I)=A%:GOTO1070
1050 FORJ=1TOX%
1060 IFA%=A%(J)THENJ=X%:NEXT:GOTO1040
1065 NEXT
1070 A%(I)=A%:NEXT
1110 IFC$="2"THENGOTO1510
1120 PRINT"[147] ";NM$;"'S [209]UIZ [146]"
1130 N%=0
1140 FORI=1TOX%
1150 PRINT""
1160 N=A%(I)
1170 PRINT"[196]EFINITION: ";:PRINTD$(N)
1180 PRINT"[197]NTER THE [215]ORD":INPUTWO$:IFWO$=""THEN1180
1190 IFWO$=W$(N)THENPRINT"[195][207][210][210][197][195][212] !":FORZ=1TO1500:NEXT:GOTO1230
1200 PRINT"[211]ORRY, THE WORD WAS:":PRINTW$(N):FORZ=1TO1500:NEXT
1210 N%=N%+1
1220 WR$(N)=W$(N)
1230 PRINT"[147]":NEXTI
1250 PRINT"[217]OU GOT"N%"WRONG":PRINT"OUT OF"X%:GOSUB1900:IFN%=0THEN2100
1260 FORI=1TO3000:NEXT
1270 PRINT"[147][212]HE WORD(S) THAT YOU":PRINT"GOT WRONG ARE:"
1280 J=1:PQ=0:FORI=1TOX%
1290 IFWR$(I)=""THEN1310
1300 PQ=PQ+1:PRINT"";WR$(I)
1305 IFPQ<>5*JTHEN1310
1306 J=J+1:PRINT" [193]NY KEY TO CONTINUE[146]":POKE198,0
1307 GETZ$:IFZ$=""THEN1307
1308 PRINT"[147]":NEXTI:GOTO50
1310 NEXTI:GOSUB2000:GOTO50
1510 PRINT"[147] [200]IT THE [194]OOKS "
1520 N%=0
1530 FORI=1TOX%
1540 PRINT"":N=A%(I)
1550 J%=1:J1%=1
1560 PRINT"[196]EFINITION: ";:PRINTD$(N)
1570 WO$="":PRINT"[197]NTER THE [215]ORD":INPUTWO$
1580 IFWO$=W$(N)THENPRINT"[195][207][210][210][197][195][212] !":GOTO1790
1590 IFLEFT$(WO$,2)=LEFT$(W$(N),2)THENGOTO1610
1600 GOTO1680
1610 IFJ1%>1THENGOTO1750
1620 PRINT"[217]OU'RE CLOSE":PRINT"[212]RY AGAIN"
1630 J1%=J1%+1
1640 IFW$(N)=WR$(N)THENGOTO1670
1650 WR$(N)=W$(N)
1670 PRINT"":GOTO1560
1680 IFJ%>2THENGOTO1750
1690 PRINT"[211]ORRY, ";NM$:PRINT"YOU'RE NOT EVEN CLOSE":PRINT"[212]RY AGAIN"
1691 FORZ=1TO2500:NEXT:PRINT"[147]"
1700 PRINT"":J%=J%+1
1710 IFW$(N)=WR$(N)THENGOTO1740
1720 WR$(N)=W$(N)
1740 GOTO1560
1750 PRINT"[211]ORRY, THE WORD WAS:":PRINT" "W$(N):FORZ=1TO3000:NEXT:PRINT"[147]"
1760 IFW$(N)=WR$(N)THENGOTO1790
1770 WR$(N)=W$(N)
1780 N%=N%+1
1790 FORTD=1TO1500:NEXT:PRINT"[147]":NEXTI:GOTO1250
1900 IFN%=0THENPRINT"[199][210][197][193][212] [202][207][194]":RETURN
1910 N=10-(N%/X%*10)
1920 IFN<6.5THENPRINT"[194]ETTER STUDY MORE":RETURN
1930 IFN<8THENPRINT"[193] LITTLE MORE STUDY":PRINT"NEEDED":RETURN
1940 IFN<9THENPRINT"[206]OT BAD":RETURN
1950 IFN<9.5THENPRINT"[199]OOD JOB":RETURN
1960 IFN<10THENPRINT"[214]ERY GOOD"RETURN
1970 RETURN
2000 PRINT" [193]NY KEY TO CONTINUE  "
2001 GETMT$:IFMT$=""THEN2001
2002 PRINT"[147]":RETURN
2100 GOSUB2000:GOTO50